home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / countc1r / frmmain.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-26  |  7KB  |  243 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " VB 5.0 Recent Project Remover v.1.00"
  5.    ClientHeight    =   3960
  6.    ClientLeft      =   150
  7.    ClientTop       =   435
  8.    ClientWidth     =   6375
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3960
  14.    ScaleWidth      =   6375
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.ListBox lstProj 
  18.       Height          =   2400
  19.       ItemData        =   "frmMain.frx":08CA
  20.       Left            =   120
  21.       List            =   "frmMain.frx":08CC
  22.       TabIndex        =   0
  23.       Top             =   360
  24.       Width           =   6135
  25.    End
  26.    Begin VB.CommandButton cmdOK 
  27.       Caption         =   "OK"
  28.       Height          =   255
  29.       Left            =   240
  30.       TabIndex        =   9
  31.       Top             =   2040
  32.       Width           =   615
  33.    End
  34.    Begin VB.CommandButton cmdClean 
  35.       Caption         =   "&Clean All"
  36.       Height          =   375
  37.       Left            =   3120
  38.       TabIndex        =   7
  39.       Top             =   3480
  40.       Width           =   975
  41.    End
  42.    Begin VB.CommandButton cmdExit 
  43.       Caption         =   "E&xit"
  44.       Height          =   375
  45.       Left            =   5280
  46.       TabIndex        =   2
  47.       Top             =   3480
  48.       Width           =   975
  49.    End
  50.    Begin VB.CommandButton cmdRemove 
  51.       Caption         =   "&Remove"
  52.       Enabled         =   0   'False
  53.       Height          =   375
  54.       Left            =   4200
  55.       TabIndex        =   1
  56.       Top             =   3480
  57.       Width           =   975
  58.    End
  59.    Begin VB.TextBox Text1 
  60.       Height          =   2415
  61.       Left            =   120
  62.       Locked          =   -1  'True
  63.       MultiLine       =   -1  'True
  64.       ScrollBars      =   2  'Vertical
  65.       TabIndex        =   8
  66.       Top             =   360
  67.       Width           =   6135
  68.    End
  69.    Begin VB.Label Label1 
  70.       Alignment       =   2  'Center
  71.       BorderStyle     =   1  'Fixed Single
  72.       Caption         =   "Project Path"
  73.       ForeColor       =   &H80000002&
  74.       Height          =   255
  75.       Index           =   2
  76.       Left            =   120
  77.       TabIndex        =   12
  78.       Top             =   2880
  79.       Width           =   6120
  80.    End
  81.    Begin VB.Label Label1 
  82.       Alignment       =   2  'Center
  83.       BorderStyle     =   1  'Fixed Single
  84.       ForeColor       =   &H80000002&
  85.       Height          =   255
  86.       Index           =   1
  87.       Left            =   1800
  88.       TabIndex        =   11
  89.       Top             =   120
  90.       Width           =   4440
  91.    End
  92.    Begin VB.Label Label1 
  93.       Alignment       =   2  'Center
  94.       BorderStyle     =   1  'Fixed Single
  95.       Caption         =   "Project Name"
  96.       ForeColor       =   &H80000002&
  97.       Height          =   255
  98.       Index           =   0
  99.       Left            =   120
  100.       TabIndex        =   10
  101.       Top             =   120
  102.       Width           =   1680
  103.    End
  104.    Begin VB.Label Label3 
  105.       AutoSize        =   -1  'True
  106.       Caption         =   "projects referenced in the registry."
  107.       Height          =   195
  108.       Left            =   600
  109.       TabIndex        =   6
  110.       Top             =   3480
  111.       Width           =   2385
  112.    End
  113.    Begin VB.Label lblNumProjs 
  114.       BackColor       =   &H8000000C&
  115.       BorderStyle     =   1  'Fixed Single
  116.       Caption         =   " 0"
  117.       ForeColor       =   &H80000009&
  118.       Height          =   255
  119.       Left            =   120
  120.       TabIndex        =   5
  121.       Top             =   3480
  122.       Width           =   375
  123.    End
  124.    Begin VB.Label Label2 
  125.       AutoSize        =   -1  'True
  126.       Caption         =   "Project Path:"
  127.       Height          =   195
  128.       Left            =   120
  129.       TabIndex        =   4
  130.       Top             =   2910
  131.       Width           =   915
  132.    End
  133.    Begin VB.Label lblPath 
  134.       BackColor       =   &H8000000C&
  135.       BorderStyle     =   1  'Fixed Single
  136.       ForeColor       =   &H80000002&
  137.       Height          =   255
  138.       Left            =   120
  139.       TabIndex        =   3
  140.       Top             =   3120
  141.       Width           =   6135
  142.    End
  143.    Begin VB.Menu mnuFile 
  144.       Caption         =   "&File"
  145.       Begin VB.Menu mnuRemove 
  146.          Caption         =   "&Remove Project"
  147.          Enabled         =   0   'False
  148.       End
  149.       Begin VB.Menu Sep2 
  150.          Caption         =   "-"
  151.       End
  152.       Begin VB.Menu mnuExit 
  153.          Caption         =   "&Exit"
  154.       End
  155.    End
  156.    Begin VB.Menu mnuHelp 
  157.       Caption         =   "&Help"
  158.       Begin VB.Menu mnuRemoveHelp 
  159.          Caption         =   "&Removal Help"
  160.       End
  161.       Begin VB.Menu Sep1 
  162.          Caption         =   "-"
  163.       End
  164.       Begin VB.Menu mnuABout 
  165.          Caption         =   "&About Project Remover v.1.00"
  166.       End
  167.    End
  168. Attribute VB_Name = "frmMain"
  169. Attribute VB_GlobalNameSpace = False
  170. Attribute VB_Creatable = False
  171. Attribute VB_PredeclaredId = True
  172. Attribute VB_Exposed = False
  173. Option Explicit
  174. ' reference the Class file
  175. Private WithEvents Remover As cRemover
  176. Attribute Remover.VB_VarHelpID = -1
  177. Private Sub cmdClean_Click()
  178.    Remover.ClearAll lstProj
  179.    lstProj.Clear
  180.    lblNumProjs = " " & Remover.NumProjs(lstProj)
  181. End Sub
  182. Private Sub cmdExit_Click()
  183.     Unload Me
  184. End Sub
  185. Private Sub cmdOK_Click()
  186.     lstProj.Visible = True
  187. End Sub
  188. Private Sub cmdRemove_Click()
  189.     On Error Resume Next
  190.     ' remove the Project from the List Box
  191.     lstProj.RemoveItem lstProj.ListIndex
  192.     ' remove the reference from the registry
  193.     Remover.Remove lblPath
  194.     'update the counter label
  195.     lblNumProjs = " " & Remover.NumProjs(lstProj)
  196.     lblPath = ""
  197.     cmdRemove.Enabled = False
  198.     mnuRemove.Enabled = False
  199. End Sub
  200. Private Sub Form_Load()
  201.     Set Remover = New cRemover
  202.         
  203.     ' load up the ListBOx
  204.     Remover.GetProjs lstProj
  205.     lblNumProjs = " " & Remover.NumProjs(lstProj)
  206. End Sub
  207. Private Sub lstProj_Click()
  208.     Remover.GetSelected lstProj.ListIndex, _
  209.                         lstProj.List(lstProj.ListIndex), _
  210.                         lblPath
  211.     cmdRemove.Enabled = True
  212.     mnuRemove.Enabled = True
  213. End Sub
  214. Private Sub lstProj_DblClick()
  215.     cmdRemove_Click
  216. End Sub
  217. Private Sub mnuABout_Click()
  218.     MsgBox " A very simple application designed to clean out " & vbCrLf & _
  219.            "old projects from the VB 5.0 Recent Project List." & vbCrLf & vbCrLf & _
  220.            "Written by DCroft Aug 28th, 1999."
  221. End Sub
  222. Private Sub mnuExit_Click()
  223.     Unload Me
  224. End Sub
  225. Private Sub mnuRemove_Click()
  226.     cmdRemove_Click
  227. End Sub
  228. Private Sub mnuRemoveHelp_Click()
  229.    DoHelp
  230. End Sub
  231. Private Sub DoHelp()
  232.    Dim Msg As String
  233.    Msg = " To remove a project from the VB 5.0 Recent Project List, select " & _
  234.          "the project to be removed. Click the remove button. To remove all " & _
  235.          "projects at once, click the Clean All button."
  236.    lstProj.Visible = False
  237.    Text1 = Msg
  238. End Sub
  239. Private Sub Remover_NoMoreProjects()
  240.     ' ther are no projects left so disable the CLean All Button
  241.     cmdClean.Enabled = False
  242. End Sub
  243.